home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ MSO Folders 1.xpl
< prev
next >
Wrap
Text File
|
1999-06-14
|
2KB
|
65 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="4"
"COUNT"="2"
"UIPATH"="System\File System\Data Folders"
"NAME"="Office 97 Folders"
"VERSION"="1.1"
"LANGUAGE"="VBScript"
"TEXT 1"="Word Clipart"
"TEXT 2"="Excel Data"
"DESCRIPTION 1"="You can alter the location of different MS Office folders here."
"DESCRIPTION 2"="Please exit all Office programs before changing this settings."
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
sPath="HKCU\Software\Microsoft\Office\8.0\"
sWWDClipart="HKCU\Software\Microsoft\Office\8.0\Word\Options\PICTURE-PATH"
sXLData="HKCU\Software\Microsoft\Office\8.0\Excel\Microsoft Excel\DefaultPath"
Sub Plugin_Initialize
if RegPathExists(sPath) then
s=RegReadValue(sWWDClipart)
SetUIElement 1,s
s=RegReadValue(sXLData)
SetUIElement 2,s
else
Disable
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
s=GetUIElement(1)
if len(s)=0 then
Call MsgError("Unable to update information - Path for Word Cliparts is not valid")
else
if Right(s,1)="\" then
s=left(s,len(s)-1)
end if
Call RegWriteValue(sWWDClipart,s,1)
end if
s=GetUIElement(2)
if len(s)=0 then
Call MsgError("Unable to update information - Path for Excel data files is not valid")
else
if Right(s,1)="\" then
s=left(s,len(s)-1)
end if
Call RegWriteValue(sXLData,s,1)
end if
End Sub
Sub Plugin_Terminate
End Sub